home *** CD-ROM | disk | FTP | other *** search
/ Immoral Angel 1 / Immoral Angel 1.iso / mac / MSTR / PROGRAM / Shared.Cst / 00015.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  293 b   |  12 lines
  1. on setcursor
  2.   global cursorPointer,cursorWait,cursorZin,cursorZout
  3.   
  4.   put the number of cast "cursorStart" into castNo
  5.   
  6.   set cursorPointer to [castNo,castNo+1]
  7.   set cursorWait to [castNo+2,castNo+3]
  8.   set cursorZin to [castNo+4,castNo+5]
  9.   set cursorZout to  [castNo+6,castNo+7]
  10.   
  11. end
  12.